3305 '	get a single letter -- change to selection # fo menus etc.
3306 '	returns a value in range of 0 - 27
3310 '
3315 MAX%=0:GOSUB 500
3320 IF ANSWER$="" THEN SELECTION%=0: RETURN
3322 IF ANSWER$ < "A" OR ANSWER$ > "Z" THEN SELECTION%=27: RETURN
3325 SELECTION%=ASC(ANSWER$)-64
3330 RETURN
